home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / ADV350.ZIP / yesx.for < prev   
Encoding:
Text File  |  1990-11-11  |  652 b   |  23 lines
  1.       LOGICAL FUNCTION YESX(X,Y,Z,SPK)
  2.       
  3. C  PRINT MESSAGE X, WAIT FOR YES/NO ANSWER.  IF YES, PRINT Y AND LEAVE YEA
  4. C  TRUE; IF NO, PRINT Z AND LEAVE YEA FALSE.  SPK IS EITHER REPEAK OR MSPEAK.
  5.  
  6.       IMPLICIT INTEGER*4 (A-Z)
  7. C     INTEGER*2 ASCVAR
  8.  
  9.     1 IF(X.NE.0) CALL SPK(X)
  10.       CALL GETIN(REPLY,JUNK1,JUNK2,JUNK3)
  11.       IF(REPLY.EQ.'YES'.OR.REPLY.EQ.'Y') GOTO 10
  12.       IF(REPLY.EQ.'NO'.OR.REPLY.EQ.'N') GOTO 20
  13.       WRITE(*,9)
  14.     9 FORMAT(/' PLEASE ANSWER THE QUESTION.')
  15.       GOTO 1
  16.    10 YESX=.TRUE.
  17.       IF(Y.NE.0) CALL SPK(Y)
  18.       RETURN
  19.    20 YESX=.FALSE.
  20.       IF(Z.NE.0) CALL SPK(Z)
  21.       RETURN
  22.       END
  23.